home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / thor_2.22 / thor.lha / rexx / FSE / Coolify.fse < prev    next >
Text File  |  1995-12-18  |  573b  |  38 lines

  1. /* Coolify text block - by Troels Walsted Hansen */
  2.  
  3. options results
  4.  
  5. YPOS
  6. currline = result
  7. XPOS
  8. currcolumn = result
  9. MSGLENGTH
  10. lastline = result
  11.  
  12. call open(tfh, "t:UncoolTempFile", W)
  13.  
  14. do i=currline to lastline
  15.     SETPOS 1 i
  16.     GETLINE
  17.     line = result
  18.  
  19.     if(line ~= "") then do
  20.         DELETELINES
  21.         i = i-1
  22.     end
  23.     else break
  24.  
  25.     call writeln(tfh, line)
  26. end
  27.  
  28. call close(tfh)
  29.  
  30. address command "Coolify >nil: t:UncoolTempFile t:CoolTempFile"
  31. call delete("t:UncoolTempFile")
  32.  
  33. SETPOS currcolumn currline
  34. INCLUDEFILE "t:CoolTempFile"
  35. call delete("t:CoolTempFile")
  36.  
  37. SETPOS currcolumn currline
  38.